﻿Public Class IndicadorUniversidadEN

#Region "CAMPOS"
    Private intCodigo As Integer
    Private strNombre As String
    Private strDescripcion As String
    Private objUniversidad As UniversidadEN
    Private lstSeccion As List(Of SeccionEN)
    Private intNotaMinima As Integer
    Private intNotaMaxima As Integer
#End Region

#Region "CONSTRUCTORES"
    Sub New()
        Me.intCodigo = 0
        Me.strNombre = ""
        Me.strDescripcion = ""
        Me.objUniversidad = New UniversidadEN
        Me.lstSeccion = New List(Of SeccionEN)
        Me.intNotaMinima = 0
        Me.intNotaMaxima = 0
    End Sub
#End Region

#Region "PROPIEDADES"

    Public Property CodigoIndicadorUniversidad() As Integer
        Get
            Return intCodigo
        End Get
        Set(ByVal value As Integer)
            intCodigo = value
        End Set
    End Property

    Public Property NombreIndicadorUniversidad() As String
        Get
            Return strNombre
        End Get
        Set(ByVal value As String)
            strNombre = value
        End Set
    End Property

    Public Property DescripcionIndicadorUniversidad() As String
        Get
            Return strDescripcion
        End Get
        Set(ByVal value As String)
            strDescripcion = value
        End Set
    End Property

    Public Property UniversidadIndicadorUniversidad() As UniversidadEN
        Get
            Return objUniversidad
        End Get
        Set(ByVal value As UniversidadEN)
            objUniversidad = value
        End Set
    End Property

    Public Property SeccionIndicadorUniversidad() As List(Of SeccionEN)
        Get
            Return lstSeccion
        End Get
        Set(ByVal value As List(Of SeccionEN))
            lstSeccion = value
        End Set
    End Property

    Public Property NotaMinimaIndicadorUniversidad() As Integer
        Get
            Return intNotaMinima
        End Get
        Set(ByVal value As Integer)
            intNotaMinima = value
        End Set
    End Property

    Public Property NotaMaximaIndicadorUniversidad() As Integer
        Get
            Return intNotaMaxima
        End Get
        Set(ByVal value As Integer)
            intNotaMaxima = value
        End Set
    End Property
#End Region

End Class

Public Class UniversidadEN

#Region "CAMPOS"
    Private intCodigo As Integer
    Private strNombre As String
#End Region

#Region "CONSTRUCTORES"
    Sub New()
        Me.intCodigo = 0
        Me.strNombre = ""
    End Sub
#End Region

#Region "PROPIEDADES"
    Public Property CodigoUniversidad() As Integer
        Get
            Return intCodigo
        End Get
        Set(ByVal value As Integer)
            intCodigo = value
        End Set
    End Property

    Public Property NombreUniversidad() As String
        Get
            Return strNombre
        End Get
        Set(ByVal value As String)
            strNombre = value
        End Set
    End Property
#End Region

End Class

Public Class SeccionEN

#Region "CAMPOS"
    Private intCodigo As Integer
    Private strNombre As String
    Private intHito As Integer
#End Region

#Region "CONSTRUCTORES"
    Sub New()
        Me.intCodigo = 0
        Me.strNombre = ""
        Me.intHito = 0
    End Sub
#End Region

#Region "PROPIEDADES"
    Public Property CodigoSeccion() As Integer
        Get
            Return intCodigo
        End Get
        Set(ByVal value As Integer)
            intCodigo = value
        End Set
    End Property

    Public Property NombreSeccion() As String
        Get
            Return strNombre
        End Get
        Set(ByVal value As String)
            strNombre = value
        End Set
    End Property

    Public Property HitoSeccion() As Integer
        Get
            Return intHito
        End Get
        Set(ByVal value As Integer)
            intHito = value
        End Set
    End Property
#End Region

End Class